www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\公用函数include及论坛博客等标签库\nd_include_guolv_zhua.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:nd_include_guolv_zhua$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:include脏话过滤,按基本设置里设置的过滤列表来过滤脏话$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:htmledxa:1|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%> <% function guolv_zhua(contt) biao2="[ND_sys]" set rs22wwww=server.CreateObject("adodb.recordset") rs22wwww.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1 ddd1=rs22wwww("data") dddd12=split(ddd1,"|") unsss=dddd12(18) rs22wwww.close set rs22wwww=nothing if trim(unsss)<>"" and contt<>"" then unregt=split(trim(unsss),",") for ithi=0 to ubound(unregt) contt=replace(contt,trim(unregt(ithi)),"-*****自动过滤的非法字符*****-",1,-1,1) next end if guolv_zhua=contt end function %>